perm filename KILLER.SAI[1,BGB] blob
sn#001232 filedate 1972-11-03 generic text, type T, neo UTF8
00100 BEGIN "KILLER"
00102
00104 INTEGER FLG,CNT,BRK,EOF,Z;
00106 OPEN(1,"DSK",0,1,0,CNT,BRK,EOF);
00108 LOOKUP(1,"COUNT",FLG);
00110 CNT ← 120;
00112 Z ← INTIN(1);
00114 RELEASE(1);
00116 OUTSTR("THE COUNT IS NOW "&CVS(Z)&"!"&13&10);
00118 OPEN(1,"DSK",0,0,1,0,0,0);
00120 ENTER(1,"COUNT",FLG);
00122 OUT(1,CVS(Z+1));
00124 RELEASE(1);
00126
00200 CALL(0,"CTLV");
00300 PTOCHS(0,"K");
00400 PTOCHS(0,13);CALL(0,"SLEEP");CALL(0,"SLEEP");
00500 PTOCHS(0,"L");
00600 PTOCHS(0,13);CALL(0,"SLEEP");CALL(0,"SLEEP");
00700 PTOSTR(0,"G70/BGB");
00800 PTOCHS(0,13);CALL(0,"SLEEP");CALL(0,"SLEEP");
00900 CALL(0,"CTLV");
00950 PTOSTR(0,"RU KILLER
00975 ");
01000 END "KILLER";